unit uExportDecl_ctrl_functions;

interface
        uses  SysUtils, Classes, Forms, Windows, Graphics, Controls, StdCtrls,
     ExtCtrls, ComCtrls
     ;


function GetSliderPosition( pSlider :pointer) :integer; stdcall;

procedure SetSliderPosition( pSlider :pointer; posit :integer); stdcall;

procedure SetEditLine( pEdit :pointer; const line :PAnsiChar ); stdcall;
procedure GetEditLine( pEdit :pointer; dest :PansiChar; destlen :integer ); stdcall;



implementation



function GetSliderPosition( pSlider :pointer) :integer; stdcall;
  var tb :TTrackBar;
begin
  tb := TTrackBar(pSlider);
  Result := tb.Position;
end;

procedure SetSliderPosition( pSlider :pointer; posit :integer); stdcall;
  var tb :TTrackBar;
begin
  tb := TTrackBar(pSlider);
  tb.Position := posit;
end;

procedure SetEditLine( pEdit :pointer; const line :PAnsiChar ); stdcall;
  var n :TEdit;
begin
  n := TEdit(pEdit);
  n.Text := line;

end;

procedure GetEditLine( pEdit :pointer; dest :PansiChar; destlen :integer ); stdcall;
  var n :TEdit;
  pline :PAnsiChar;
begin
  n := TEdit(pEdit);
  pline := PAnsiChar(n.Text);
  SysUtils.StrLCopy(dest, pline, destlen);

end;




end.
